home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Sound / Playing & Recording / Music 5 Mac / Scripts folder / JCR550.PAR corto < prev    next >
Encoding:
Text File  |  1993-05-11  |  831 b   |  39 lines  |  [TEXT/M5Mc]
  1. COM ------------------------JCR550--------------------------;
  2. COM MODULATION EN ANNEAU  D'UN ACCORD AVEC RéSONANCE DE GONG;
  3. COM --------------------------------------------------------;
  4. SAM 25600;
  5. INS 0 1;
  6. CNV P5=P5*8;
  7. CNV P6=HTZ(P6);
  8. CNV P8=HTZ(P8);
  9. CNV P9=CEN(P9);
  10. IEN P5 F3 B3 P9 P10 P11 P30;
  11. IOS B3 P6 B3 F1 P29;
  12. IOS P7 P8 B4 F2 P28;
  13. MLT B3 B4 B3;
  14. OUT B3;
  15. END;
  16.  
  17. INS 0 2;
  18. CNV P5=P5*8;
  19. CNV P6=HTZ(P6);
  20. CNV P7=DUR(P7);
  21. IOS P5 P7 B3 F4 P30;
  22. IOS B3 P6 B3 F1 P29;
  23. OUT B3;
  24. END;
  25.  
  26. GEN 0 2 1 512 1 1;
  27. GEN 0 3 2 512 0 10 10 10 10 10 0 -10 -10 -10 -10 -10 0;
  28. GEN 0 6 3 512 10 1 1 10;
  29. GEN 0 7 4 512 -8;
  30. COM ---------------------------------------------------------;
  31.  
  32.  
  33. COM ECHO TIMBRAL DE L HARMONIE PRECEDENTE;
  34. NOT 0 2 10 400 273 10;
  35. NOT 0 2 7.5 200 455 7.5;
  36. NOT 0 2 4.5 200 576 4.5;
  37. NOT 0 2 6.5 150 648 6.5;
  38. NOT 0 2 4 150 864 4;
  39. TER 7.5;